home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / vs_804.zip / MAINTSRC.EXE / S_DICTFL.PRG < prev    next >
Text File  |  1991-11-25  |  2KB  |  82 lines
  1. * Filename.......: S_DICTFL.PRG
  2. *                  
  3. * Author.........: Vernon E. Six, Jr.
  4. *                  
  5. * Last Update....: Mon  11/25/91  16:37:19
  6. *                  
  7. * Created using..: VSG - Vern Six's Get System v1.00.53a
  8. *                  
  9. * Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
  10. *                  All Rights Reserved World Wide!         
  11.  
  12. #include "INKEY.CH"  
  13.  
  14.  
  15. FUNCTION S_DICTFLD(pc_Title,pc_FootNote)
  16. *══════════════════════════════════════════════════════════*
  17. * Select a FIELD                                           *
  18. *══════════════════════════════════════════════════════════*
  19. LOCAL n_Top        := 5
  20. LOCAL n_Left       := 5
  21. LOCAL n_Bottom     := 20
  22. LOCAL n_Right      := 76
  23. LOCAL c_Title      := IF(pc_Title=NIL," Which Field? ",pc_Title)
  24. LOCAL c_FootNote   := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
  25. LOCAL n_Palette    := 5
  26. LOCAL a_ColObjs    := {}
  27. LOCAL n_Key        := 0 
  28. LOCAL c_OldHelp    := "" 
  29.  
  30. LOCAL c_RetVal
  31. LOCAL ab_KeyBlocks := {}
  32. LOCAL an_Keys      := {}
  33.  
  34. _DICTFLD->( VS_SetOrder("1") )
  35.  
  36.  
  37.  
  38. AADD(a_ColObjs, TBColumnNew( "###  Field Name  T Size     Description", {||L_DictFld()}) )
  39.  
  40.  
  41. *══════════════════════════════════════════════════════════*
  42. AADD(ab_KeyBlocks, {||E_DICTFLD(.T.)} )
  43. AADD(an_Keys,      K_F10)
  44.  
  45.  
  46. *══════════════════════════════════════════════════════════*
  47. AADD(ab_KeyBlocks, {||E_DICTFLD(.F.)} )
  48. AADD(an_Keys,      K_INS)
  49.  
  50.  
  51. *══════════════════════════════════════════════════════════*
  52. AADD(ab_KeyBlocks, {||D_FIELD()} )
  53. AADD(an_Keys,      K_DEL)
  54.  
  55. *══════════════════════════════════════════════════════════*
  56.  
  57.    DO WHILE .T.
  58.  
  59.       c_OldHelp = VS_HelpPrg( "S_DICTFLD" )
  60.       n_Key = _DICTFLD->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
  61.               c_FootNote, n_Palette, a_ColObjs, _DICTHDR->DBF_NAME,{|x|ALLTRIM(x) == ALLTRIM(_DICTFLD->DBF_NAME)}, ab_KeyBlocks, an_Keys ) )
  62.       VS_HelpPrg( c_OldHelp )
  63.  
  64.       DO CASE
  65.  
  66.          CASE n_Key = K_ESC 
  67.             c_RetVal = ""   
  68.             EXIT            
  69.  
  70.          CASE n_Key = K_ENTER
  71.             c_RetVal = _DICTFLD->FIELD_NAME
  72.             EXIT       
  73.  
  74.       ENDCASE
  75.  
  76.    ENDDO
  77.  
  78. RETURN(c_RetVal)
  79. *══ EOF: S_DICTFLD() ═════════════════════════════════════════════════════════*
  80.  
  81.  
  82.